



























GENETIC CODE Following on from our | 
discussion of evolutionary ‘rule-breeding’ 1348 
learning systems last week, we provide a 

BASIC program that incorporates these ideas. 

The GENE program, which can be run on 

three of the most popular home micros, is a 

‘general evolutionary network explorer’ 




















MUSIC CENTRE The Echo package from 
LVL, for the Commodore 64 and BBC 

Micro, provides a sturdy keyboard on which 
budding home maestros can compose their | 
digital masterworks 


A PROMISING FUTURE We wind up our 
series on CP/M with a look at how the 
program is stored in memory, and speculate 
on the system’s future 
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treat its own programs as data 2) Because of the problem of ground hum, a break is necessary 
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THE NEW WORLD Ill After 16 weeks 
exploring the intricacies of designing a 
simulation game, the final goal is achieved 
and your performance can be evaluated 

















TAPE MEASURES We discuss the ways in 


which the Spectrum’s operating system 
accesses the tape storage medium 
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CIRCUIT SOUNDS Onur project to build a 
MIDI interface for the Commodore 64 and 1343 
BBC Micro moves on to an examination of 

the detailed circuitry for the device, and 

investigates the operation of the ACIA chip 

at its heart 
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Key Notes 

The Echo keyboard from LVL, 
shown here, is the first ‘real’ 
musical keyboard to be 
produced for the BBC Micro or 
the Commodore 64 that directly 
accesses the sound chips of 
those computers and does not 
require an expensive interface 


PAUL CHAVE 





with the Commodore 64 and BBC Micro, 
attempts to fill the gap m the home 
computer market created by the lack of 
products that directly access your micro’s 
sound chip. The package has one of the 
better keyboards currently available, but the 
software leaves a little to be desired. 





The Echo package from Leasalink Viewdata Ltd 
(LVL) consists of an authentic three-and-a-half 
octave keyboard plus the software to run it. Also 
provided is a manual and a 20-way interface cable 
to connect the keyboard and computer together, 
which fits into the machine’s user port. If you own a 
Commodore 64 you'll be provided with two cables 
— the standard cable, which 1s for the BBC Micro, 
and a small adaptor cable that is provided to 
produce the correct interface for the Commodore 
machine. 

The hardware of the Echo is simple in design; 
most of the work is performed by the software 
provided with the package, which obviously keeps 
the production costs down. The software itself, for 
both computers, is based around the same 
specification. 

There are two distinct modes available within 
the software, the first of which is an organ mode. 
Depressing one of the keys on the computer 
keyboard will select one of the various 
‘instruments’ listed. ‘These range from Hawaiian 





MUSIC | 
CENTRE 


guitar to cello and harpsichord, although the 
settings on each of the two machines are slightly 
different. A number of parameters will be listed at 
the top of the monitor, and depending upon which 
one you select these will allow you to alter the 
tones of the instrument you are playing. 

The Commodore 64 version of the software has 
the facility to add tremolo and vibrato (but not 
both) or change to a major or minor key. These 
effects are produced by pressing one of the 
number keys. 


The software on the BBC Micro version also 
incorporates the computer’s Keys, but in this case it 
is the function keys that allow you to set the 
tremolo and major or minor chords. The 
programmers have taken advantage of the extra 
function keys and the speed of the machine's 
processor, however, and have added other 
facilities. If you want to add extra emphasis or 
effect while playing a piece on the Echo keyboard, 
you can press one of the function keys, and the 
appropriate sound — woodblock, bass, cymbal 
and so on — will be played. Unfortunately, there is 
no facility to allow accompanying rhythms to run 
while the keyboard is being played. 


PITCH CONTROLS 


At the bottom of each screen are the pitch controls. 
On the BBC Micro version, the pitch can be raised 
or lowered by pressing the appropriate cursor 
keys. On the Commodore 64 version, however, 
this is performed with the < and > keys. 
Unfortunately, it says something about the quality 
of the software for the Commodore machine that 
both of these functions are labelled PITCH MINUS 
on screen. 

What is also unfortunate is that the sounds 
produced by the ‘instrument’ keys bear little 
resemblance to the instruments they are intended 
to sound like. This is an all too common 
occurrence in the entire field of electronic music — 
not just in computer programs. However, the 
Echo’s sound effects seem qualitatively worse than 
most. For example, the violin, viola and cello on 
the Commodore 64 version merely sound like an 
organ held at different pitches for each instrument. 

The synthesiser mode is also available to both 
machines. The parameters provided by the 
synthesiser mode are dependent upon the facilities 
provided by the sound chip in each machine. Thus 
the Commodore 64 version allows you to adjust 
the envelope parameters of the waveshape and 
program the filter. As with the organ mode, 
parameters are altered by pressing the appropriate 
key on the computer keyboard until the required 
value is obtained. 
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ECHO SYNTHESISER 
PRICE 
£99.95 inc VAT 


3/ full-travel piano keys 


INTERFACES 

Single 20-way cable that 
plugs into the BBC Micro's __ 
user port. Cable adaptor © 
forthe Commodore 64 ~ 
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STRENGTHS aS 

The Echo package allows the — 

full facilities of the sound chip 

in both micros to be used 

from an authentic keyboard 


WEAKNESSES 

The poor quality of the - 
software lets the system down 
badly, although an improved 
version is promised | 


PORTO MOCO OO 
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Screen Music 
Here are the screen displays 
for the Commodore 64 


software (left) in organ mode, 
and the BBC Micro in 


synthesiser mode. Although - 
superficially alike, the 
versions of the software are 
| quite different. Although both 

use keypresses from the 
computer to alter the sounds, 

: the BBC Micro version has a 
much greater variety of 
settings than the Commodore 
64 
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Similarly, the synthesiser mode on the BBC 
Micro makes use of the machine’s ENVELOPE 
command. When this is called, you will be asked 


The software interfaces the computer to the 
keyboard by placing a value from 36 to zero in the 
bottom six bits of the user port data register. ‘The 


which of the four user-defined synthesisers (as 
opposed to those which are preset in the organ) 
you wish to alter. The screen then displays the 14 
parameters required for the ENVELOPE command, 
each one is selected by the left and nght cursor 
keys and their values can be altered by the up and 
down cursors. Once these have been set, you will 
be free to play the tone on the keyboard. 
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method of scanning the keyboard used by the 
software package means that if a number of Keys 
are held down simultaneously, then only the 


higher one will register. Unfortunately, this does 
not allow for rapid fingering changes on the Echo 
keyboard because the previous key must be fully 
released before the software will recognise another 
keypress. 
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CIRCUIT 
SOUNDS 














In the previous instalment we presented th 

requirements set out im the MIDI 
specification. We can now begin to design an 
interface for the Commodore 64 and BBC 
Micro, enabling them to communicate with 
the increasing range of MIDI-compatible 
f. 








The principal component of the interface is a 
Asynchronous Communications Interface 
Adaptor (ACIA). The ACIA performs the 
function of converting the computer’s parallel 
data into the serial form required by MIDI, and 
vice versa. The device is usually contained within 
one integrated circuit. We will use the MC6850, 
which is found in many home computers as a 
control for asynchronous data transfer to and from 
cassettes and RS232-type interfaces 





















































































































































































































































































Circuit Connections 

The opto-coupling is achieved 

by a 6N139 opto-isolator (IC2). 
The transmission clock is derived 
independently of the computer 
clock by a 2MHz crystal 
oscillator circuit formed around 
IC3a and IC3b. 

IC3c, d and e each provide 
buffering functions for the 
transmitter and the clock 
generator. 

The MC6850 is bus- 
compatible with the 6502 CPU 
used in many home computers. 
This allows us to make direct 
connections from 6502-based 
micro Read/Write, IRQ and 
Clock lines. (Note that we have 
labelled the clock input to the 
AGIA as Enable (E) to avoid 
confusion with the transmission 
clock inputs TXD and TXC). 

The two chip select lines — 
CSO and CS1 — are connected 
to the +5v feed and are thus tied 
permanently high, leaving CS2 
as the only active chip select (or 
device enable) input. This line is 
forced low for a certain range of 
addresses, allowing read and 
write operations on the data bus 
to access the internal registers © 
of the ACIA. 
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MIDI Construction 

The major components for the 
MIDI interface should be 
mounted on the special DIP 
breadboard specified in the 
parts list. This board has 
double-sided edge connectors 
at both ends; the right-hand end 
being used for connection to the 
Commodore 64 and the left- 
hand end for connection to the 
BBC Micro. Before mounting the 
components it is necessary to 
make some cuts to the board. 
Note that it is only necessary to 
make cuts to one end of the 
board or the other depending on 
the computer you wish to use 
the interface with. Use a sharp 
knife or small hacksaw to 
remove the required portions, as 
shown. All the links are made on 
the top of the board using 
single-strand wire-wrap wire, 
with the exception of three links 
between adjacent IC pins. These 
links should be made by running 
solder between the appropriate 
pin pairs on the copper side of 
the board. 

Start by mounting the 
passive components on the 
board: the resistors, capacitors, 
DIN sockets and DIL sockets, as 
shown. Make the necessary 
links with wire-wrap wire and 
mount the 2MHz crystal. The 
diode must be oriented so the 
end marked with the coloured 
band is to the right (when 
viewed from above). Be sure not 
to miss the small link beneath 
capacitor C3. Finally, push the 
chips carefully into place in their 
respective sockets, noting the 
Orientation of the notches. 

In the next instalment of the 
project we shall detail the 
remaining work to be done so 
that the interface can be linked 
up to a computer and tested 
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Other components we'll require at this stage 
include an interface clock, opto-isolator and input 
and output sockets, which form the basis of the 
interface. In the next instalment we will detail the 
computer port connections required to link the 
interface to the Commordore 64 or BBC Micro. 

The internal structure of the device shown 
consists of a number of eight-bit registers. ‘The 
Register SELect input line (RSEL) allows access to 
the registers from the data bus. Although it is not 
essential to understand the functions of the ACIA 
registers to run the software that will be provided, 
users who want to program the interface will need 
to know the following information: 


@ The status register consists of eight bits that 
describe the current state of the ACIA chip. They 
are available to the programmer by performing a 
read operation on the ACIA with the RSEL line ata 
low (logic zero) level. 


@ The control register contains eight bits which, as 
the name suggests, control the operation of the 
ACIA. The control register is accessed by writing 
to the ACIA with the RSEL line at a low level. 


@ The transmit shift register (TSR) performs the 
parallel-to-serial conversion required to transmit a 
data byte. The register is loaded with a byte from 
the transmit data register (IDR) whenever the TDR 
is full and transmission of the previous byte is 
complete. This operation sets bit 1 of the status 
register. The byte is then shifted out at a rate 
determined by the transmit clock. At this time, the 
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operation clears status bit 0. 





start and stop bits are added to the eight data bits. 
This is an internal register and cannot be directly 
accessed from the data bus. | 


® The transmit data register (TDR) forms a buffer 
between the TSR and the system data bus. The byte 
to be transmitted is loaded into this register by 
writing to the ACIA with the register select line 
high. This operation clears bit 1 of the status 
register. If data is not to be lost, TDR should never 
be loaded when this status bit is clear. This is 
because the previous byte is still in the TDR 
awaiting transmission and will be overwritten. 


@ The receive shift register (RSR) performs the 
serial-to-parallel conversion required when 
receiving data from MIDI. When the register 
receives a complete byte, it will load the data into 
the RDR, setting status bit 0. If this bit was 
previously set, then status bit 5 will also be set, 
indicating that the previous byte had not been read 
by the CPU and that the data will therefore be lost. 

If the received byte did not have the required 
number of start and stop bits (see page 1335), then 
status bit 4 will be set. This could occur if electrical 
‘noise’ is present on the serial input line. Like the 
TSR, the RSR cannot be accessed directly. 


@ The receive data register (RDR) is loaded 
whenever a complete byte is received from the 
RSR. It therefore contains the most recent data 


byte. It is accessed by performing a read operation 
to the ACIA with the RSEL line held high. This 
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in this final instalment of our series on CP/M, we look 
at how the system is organised within the 
computer’s memory to make the most efficient use 
of the available space. We review the three major 
components of CP/M, and conclude with a peek into 
the future of the operating system. 








The three main modules of CP/M are kept at the top of 
memory. Their actual start addresses will depend on 
which version of CP/M you may be using. The BDOS 
(Basic Disk Operating System), which manages the files 
held on disk, and the BIOS (Basic Input/Output System), 
which handles the peripheral—handling routines for the 
computer, are kept at the very top of memory. Below them 
is the Console Command Processor (CCP), the CP/M 
module which you communicate with. 

At the other end of the memory map are 256 bytes 
(known as ‘zero page’) which are used to contain system 
variables and other ‘scratchpad’ information needed to 
run CP/M. This includes some very useful data, such as 
the entry points to the BDOS and BIOS areas of memory 
and the bootstrap loader program. It is necessary to 
retain the bootstrap loader program in memory because 
the system will often need to reload CP/M (the reason for 
this will be explained later). 

Another important feature held on zero page is the area 
known as the Transient File Control Buffer, or TFCB. Inthe 
previous instalment we discovered that when you asked 
for a file to be called from disk, the CCP set up a dummy 
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File Control Block in memory. When the BDOS located a 
file it compared the file with that held by the CCP and then 
passed further information from the directory track to the 
CCP. This information is stored in the TFCB. 

Between zero page and the CCP sections is an area of 
memory known as the Transient Program Area, or TPA. 
This is best thought of as the workspace area of CP/M. As 
we have seen, when an instruction is submitted to the 
operating system, the CCP will first search the list of the 
resident commands held in the CCP area for a match. If it 
is not there, the CCP will assume that the instruction is a 
transient command and order the BDOS to locate it. 


Assuming that the command is resident on the system 


disk, the BDOS will load a copy of the machine code 
program into the beginning of the Transient Program 
Area, which is always at hex location 100 (the start of page 
one in the computer’s memory map). Once loaded, the 
command is ready for execution and will be run 
automatically. 

The specifications for using CP/M state that a 
minimum of 16 Kbytes of RAM are necessary. This is 
really quite a large amount of memory considering that 
CP/Mis intended to remain in the background while other 
programs are being executed. Fortunately, only a small 
amount of this is actually used by the CP/M programs 
themselves. Most of the RAM is reserved for use by the 
TPA, which (if you are using the bare minimum) will finish 
at hex address 2900. Since page zero is reserved in CP/M 
for system variables, seven Kbytes will be used for the 
Transient Program Area. 

However, most transient commands occupy only 


between two and three Kbytes of memory. The rest of the 
_ TPA will be used for any files that need to be worked on by 


the transient command. Thus the TPA is used by the 
command being executed and by any files upon which it 
may be required to act. 

This presents the system with a problem. If we have 
the minimum amount of RAM, which is seven Kbytes of 
free TPA space, and three Kbytes are used for the 
transient command, we are left with only four Kbytes for 
any extra files. This is barely sufficient for a moderate- 
sized program, let alone long text files. In the previous 
instalment we found that a CP/M file can be up to 16 
Kbytes long. Of course, one way to get round the problem 
is to add extra memory. Any extra banks of RAM that are 
added to the system will be assigned to the TPA, up to the 
maximum 64 Kbytes that are directly addressable by CP/ 
M. Thus the top of CP/M will be raised by hexadecimal 
4000 for each additional 16 Kbytes. 

But let’s assume that we cannot add the extra memory 
required. How then does CP/M perform the computing 
equivalent of getting a quart into a pint jar? The answer is 
simply that any overflow from the Transient Program Area 
overwrites (or ‘overlays’, in the jargon of CP/M) the CCP. 


This is not as drastic as it sounds. For one thing, the CCP 
is not required while a command is being executed. 
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CP/M, in common with all operating systems, will not 
accept any further commands while it is executing the 


previous one. Therefore, there is no need forthe CCP to be 


present. to interrupt them or to execute unnecessary 
resident commands. 3 

Of course, once the command program has 
terminated, it will be necessary to reload the CCP 
programs in order to ready the system to accept the next 
command. This is performed as the final act of a transient 
command, and the program will then call the ‘location 
boot’ routine, which is found at location 0005 
hexadecimal on zero page. This address is the entry point 
into the operating system that reloads the CCP module 
back into memory ready to receive the next instruction. 


DESIGN CONSTRAINTS 


We are now in a position to understand the nature of 
transient commands. When CP/M was invented the 
available hardware (RAM chips, in particular) was very 
expensive, and consequently few machines were 
equipped with more than 16 Kbytes as standard. 
Therefore, any software designed to run on these 
machines had to be tailored to suit the hardware 
limitations. | 

In order to make CP/M as comprehensive an operating 
system as possible within the memory space available 
some parts had to overlap. Since both the BIOS and the 


BDOS were required to be resident permanently they 
could not be used. Many of the commands made use of 


them for accessing files or performing some input and 
output operation (such as spooling a file to a printer or 
displaying iton a screen). Thus it was decided to have the 
CCP and the TPA ‘occupy’ the same area of memory, 


- since one could not be used at the same time as the other 


in any event. 

The CCP area could be overlaid by a transient program 
and once executed the transient program became 
dispensable and the CCP could be reloaded safely. It is a 
credit to Gary Kildall and his team that they produced 
such an efficient and durable system within the hardware 
restrictions imposed at the time. 

Now that business machines have begun to adopt 16- 
bit processors, it would appear that the operating system 
is leading to an inevitable demise. But although 16-bit 
operating systems such as MS-DOS now dominate the 
business market, the eight-bit Z80-based micro seems to 
have many years of usefulness yet. 

Home and small business micro systems often do not 
need the power of a 16-bit processor, but their disk drives 
will require an operating system. CP/M, for so long the de 
facto standard for eight-bit disk operating systems, 


‘would seem an ideal choice for manufacturers eager to 


provide a large software base without crippling 
development costs. Some computer manufacturers have 
already taken this route, most notably Memotech and 
Amstrad. 


THE AMSTRAD 
IMPLEMENTATION 


Of course, users dazzled by the promises of the 10,000 or 


so software packages written for the CP/M operating © 


system are still faced with several problems. Amstrad 


users have a particular difficulty. CP/M was developed for 


8in and 5zin disks, and Amstrad has opted for the 3in 





Hitachi format. This means that it could be some time 
before many CP/M-based packages appear on the 
market for Amstrad users. 

A further problem with the Amstrad computer is that 
Supporting its screen leaves only 38 Kbytes of free 
memory for programs, which is far less than some of the 
more recent CP/M programs require. Therefore, unless 








eae 


some of these programs can be tailored to fit into the 
available memory space, Amstrad owners could find 
themselves having to use outdated software. However, by 
going ‘down market’, eight-bit CP/M looks as though it 
will continue to generate a large consumer base. 

This is not to say that Digital Research has abandoned 
the 16-bit market. But the company has not found the 
going easy, since there are many more competitors 
around now than at the time Gary Kildall first developed 
CP/M. A later version of the system, CP/M-86, was the 
first attempt by Digital Research to break into the market 
based around the Intel 8088/6 chips. However, this was 
generally rejected by the market, which opted instead for 
IBM compatibility and the MS-DOS standard. 

More recently, however, a multi-user version of the CP/ 
M, known as Concurrent CP/M, has been launched by 
Digital Research. This operating sytem can be used by a 
single user or by a number of computers linked together 
in a network. It is perhaps too early to say whether 
Concurrent CP/M will achieve the success of its eight-bit 
ancestor, but CP/M looks as though it will be around, in 
one form or another, for many years to come. 
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In this second part of our investigation of 
machine learning, we develop’ our 
discussion of the evolutionary model for a 
Sself-improving system, which we began on 
page 1321. We also provide a program, 
called GENE, that allows us to duplicate the 
evolutionary process and find better 
solutions to complex network problems. 








When AI scientists look to nature for ideas on how 
to design self-improving systems, three things 
catch their eyes — the nervous system, the immune 
system and the evolutionary process itself. The 
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Star Gazing 

The partygoers interplanetary map shows the hyperspace routes 
between the planets, and their respective travelling times. It is 
possible to travel between planets that are not directly 
interconnected by hyperspace routes, but any journeys made that 
do not use the network routes take 1,000 time units each. The 
GENE program’s task is to find quick routes through the network, 
so that each of the twenty planets is visited 


nervous system, especially the human brain, is a 
wonderfully effective learning mechanism. But its 
operations are still mysterious — we have yet to 
understand it well enough to copy it. The body’s 
immune response system. can also be said to learn, 
in that it comes to distinguish self from other, so 
that it can attack and destroy foreign bodies. Over 
the course of a lifetime it learns to recognise 
millions upon millions of different proteins and 
without its amazing adaptability and reliability, we 
would quickly die. Yet it is essentially a rote 
memory system: its powers of generalisation are 
rudimentary. 

The evolutionary process is certainly effective 
as a means of devising ever more advanced 
organisms: it may be a bit slow for our purposes, 
but can be speeded up in computer simulation. 
Above all, it is relatively well understood and 
simple enough for us to copy with some hope of 
success. In the previous instalment we stated that a 
‘Darwinian’ approach to machine learning had 
some theoretical advantages. Now we will see 
what happens when we put it into practice. 

To illustrate machine learning using an 
evolutionary algorithm, we will look at a version of 
the notorious “Travelling Salesman Problem’ 
(TSP). This problem is usually posed in the 
context of the 48 state capitals of the continental 
United States (excluding Alaska and Hawaii). 
The salesman has a table of inter-city distances 
and is required to visit each city once only and 
return to his starting point. The object is to 
minimise the total distance travelled. 

It sounds deceptively simple, but the number of 
possible routes or tours is (N-1)! (see page 549) 
where N is the number of cities. On a tour of 48 
cities, there are 47 possible first stops that can be 
made, followed by 46 possible second stops 
followed by 45 third stops, and so on. In fact, there 
are more potential routes than atoms in the 
universe! Even with 20 cities to visit, the number 
of potential tours is over a hundred and twenty 
thousand million million! 

There are several approaches to the TSP. It can 
be treated as a search problem, using methods 
similar to those we described in the second 
instalment in this series (see page 1241). It can also 
be handled by random hit-or-miss Monte Carlo 
methods. However, we are going to take the 
unorthodox approach of considering it as a 
learning problem. We want a method that will 
explore the enormous number of potential 
solutions in an economical fashion. We will not 
expect it to deliver the optimal solution, but we 
expect it to find a good one. 

The GENE (General Evolutionary Network 
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Explorer) program that we give here is a learning 
system specifically adapted to explore networks 
and develop rules that evolve to produce 
increasingly economic routes through the 
network. Before describing how the program 
works in detail, we need to develop a network for 
it to explore. A good example can be gleaned from 
The Gatecrasher’s Guide To The Galaxy, which 
lists, among other things, all the planets within an 
80-light-year radius where you can find a decent 
party on a Saturday night. With the aid of this map 
we can transform the TSP into the PPCD 
(Planetary Party Crawl Dilemma), in which the 
objective is to put in an appearance at all 20 parties 
and return to your starting place in one night. 

The map shows the hyperspace trunkroutes in 
our galactic locality, with the times taken to travel 
between each stop. Nodes that are not connected 
by hyperspace expressways are arbitrarily given a 
traversal cost of 1,000 time units. 


EVOLUTIONARY LEARNING 
SCHEME 


In aclassic evolutionary learning scheme, there is a 
population of structures that are treated as 
‘pseudo-organisms’.. Each of these structures 
(which we will refer to as ‘rules’) defines a 
potential solution to the problem at hand. They 
are also used to propagate new structures (the 
‘offspring’ )in ways that mimicsomeof the features 
of biological reproduction, such as parents passing 
on some of their characteristics to their children. 

Depending on their performance at the task, 
rules are selected which are likely to survive the 
longest and have the greatest likelihood of 
breeding. In GENE, the organisms/rules have a 
very simple structure. They are held as strings in 
the BASIC program. For example, there is: 


ABJHMNCDKTSFRQEGILOP 


in which each letter denotes one planet in the 
planetary network and occurs only once in the 
string. Thus, each 20-character string is a 





A Good Breed 

GENE breeds new network 
routes by mating two existing 
Successful routes. As these are. 
held as 20-character BASIC 
strings, the process of 
producing offspring is 
essentially a simple string 
manipulation. In this example, 
the substring HIBCD is taken 
from one of the parents (the 
donor) and is spliced with the 
other parent (the recipient), 
ensuring that no letter is 
duplicated. This process 

ensures that, as in real genetic 
crosses, the characteristics of — 
the parents are passed on to 
their offspring 
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permutation of the planets to be visited, and 
defines a particular route around the network. 

It is quite simple to evaluate each string by 
adding up the distance needed to visit the planets 
in the order specified. The smaller the combined 
distance travelling the tour, the better the route is. 

We arrange for the strings that are worse than 
average to be deleted after each ‘generation’. The 
question then arises of how to replace them. 
Obviously, if we pursue the biological analogy, we 
will be carrying out something similar to sexual 
reproduction to replace discarded strings. But 
sexual reproduction is not the only means of 
generating new strings. Around eight per cent of 
surviving strings are mutated. 

The mutation subroutine, beginning at line 
3500, merely performs a certain amount of 
‘random swapping. Mutation is not, however, the 
primary genetic operator but is a background 
operator that ensures the system does not get stuck 
at a local optimum. There may be a limit to the 
improvements that can be made in a successive 
generation by purely sexual reproductive 
methods. 

If you experiment with the program yourself, 
you will find that the average standard of the 
population of rules does indeed improve with 
time, although — since even the best rules can ‘die’ 
eventually — this is not a continuous progression. 


The program actually cheats by preserving the best _ 


rule, and replaces it only with a better one. 
You can ‘tune’ the system by playing with what 
amounts to the death-rate in line 2520. The 
random element in this line sets the survival rate of 
good rules from one generation to the next at 88 
per cent, but this can be altered. You can also 
adjust the mutation rate in line 3520, as well as 
introduce alternative mutation operators, such as 
complete inversion of a rule-string. 
Two questions remain: 


1. How good is the method? 
2. Why does it work? 


The first can be answered by comp 
Monte Carlo approach. All genetic 
in effect modified Monte Carlo 
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1813 FEM rules and rule-values 


pure Monte Carlo method, random solutions are 
1915 FOR IM=1 TO SIZEx 
1426 FOR Jx=1 TO SIZEn 


generated and the best solution is retained, all 
2 LINKHC IN, JMo=1806 


within a specific time-limit. In this example, that es TP oe ae Cie 





















































would mean trying a random rule-string, 1925 NEXT : NEXT | 
evaluating it, keeping it if it was the best yet, and ee eee 
mutating it. The process could be repeated as long ne Saeed —— 
ae = {oes PRINT Nb. 

you write such a program, you will discover 1960 IF IDY<>¢ 
that it quickly finds a fairly good solution, and toe germ 
improves to a lesser degree as time passes. The 1088 PR 


best solution after 20,000 trials is likely to be only 
marginally better, if at all, than the one after 
10,000. On the whole, genetic algorithms improve 
for longer durations, and by considering why this 
is so, we go much further towards answering the 
second question. 

A pure Monte Carlo method is essentially blind 
search. A genetic algorithm, on the other ha 
makes use of what it finds to direct further sear 
Specific patterns that contribute to 4 
performance are preserved and pr 
throughout the knowledge base (the p 
rules) and are recombined in sli 
contexts. In effect, the search - 
guided towards regions of the (m 
‘problem space’ in which go@¢ 
found. Unless the e 
extraordinarily disconti 
this to lead to a reasg; 
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We conclude this series on PROLOG 
with an examination of the 
language’s ability to use its own 
programs as data. This is one 
aspect of the language that makes 
it ideal for AI programming, and 
we illustrate its suitability with a 
program that simulates a robot’s 
movement in a room. 


Prooc has been chosen by the 
Japanese as the ‘core language’ of their 
Fifth Generation computer project. 

ere are two main reasons for this. 
First, PROLOG terms can have a very 
similar form to ‘relations’ in a relational 
database, and the Japanese see a 
sophisticated database machine as the 
basis of their system. 

Secondly, PROLOG is an ideal 
language for writing artificial 
intelligence (AI) programs. This is 
mainly because of its ability to use its 
own programs as data and because its 
run-time interpreter is rather like the 

inference engines’ (see page 1301) of 
many modern expert systems. 

To see how using program 
statements as data can be useful, we 
have given a program that is a simple 
simulation of a mobile robot moving 
about a room in a house. This program 
will illustrate a few of the more 
advanced features of PROLOG and give 
us a taste of what PROLOG programs 
look like and how they behave. 

The room is defined as a set of places 
and a set of paths joining them. We 
want our robot to obey commands, 
such as ‘go from the television set to the 
chair’, and find for itself the shortest 
route. First, consider the goal go(There), 
meaning: ‘go from wherever you are to 
There by the shortest possible route’. 

There are two clauses for go(There) in 
the program. The first is to trap the 
trivial case in which the robot is already 
at There. Note that for this we need a 
fact in the database (at(door)), which 
records the robot's current location. 
The second clause uses this fact to 
establish a starting position, and then 
calls another procedure: 
go(Place1,Place2). 

Because go(Piace1, Place2) can be 


PB aie ” 
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used separately from go(Place), it first 
checks that Here and There are places it 
knows about and that Here is in fact the 
current position. If one of these checks 
fails, PROLOG abandons the present 
clause and goes on to the next. The 
second go(Here, There) clause 1s there to 
move the robot to Here if it is not 
already at that position. It does this 
with a call to go(Here) and, when that 
has succeeded, by a further callto — 
go(There). The procedural reading of 
this clause 1s: ‘to go from (Here) to 

There) when not already at (Here), first 
go to (Here) and then go to (There). ‘The 
third clause for go(Here, There) is 
included only to print an error message 
if neither of the places is known. 


THE FINDALL PREDICATE 


Assuming the preliminary checks for 
the first go(Here, There) clause succeed, 
the next sub-goal will be findall. This is a 
predicate that is occasionally built into 
PROLOG but can be added otherwise 
(like FORTH, PROLOG can be very easily 
extended by defining new predicates, 
since user-defined predicates and 
system predicates have the same 
status). Findall has three arguments. The 
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first is a variable name, the second 1s a 
goal and the third is a list variable (RL). 

It works by PROLOG trying to prove 
the goal it has been given — plan(Here, 
There, [], Route) in this case — as many 
times as it can. The variable in the first 
argument must match one of the 
variables in the goal and, each time that 
goal succeeds, the value that that 
variable has been instantiated to is 
added to the list in the third argument. 

For example, the goal plan(Place}, 
Place2,[],Route) would find a route 
between Place1 and Place2 and put it in 
the variable Route. So in this case findall 
gathers up all the routes that can be 
found between Here and There and puts 
them into a list. 

We should note at this point that we 
have not yet needed to define the 
procedure for findall. In fact, it is normal 


practice when programming in PROLOG | 


to develop programs in just this way. 
Because of its declarative style, we 
write our procedures in a ‘top down’ 
manner, defining the high-level goals 
first and filling in the details later. 

The predicate shortest(RL, Short 
Route) is another predicate we have not 
yet defined here. Its job is to take a list 
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of lists (List1) and to create a new list 
(List2) containing only the shortest list it 
finds. As all the lists in List1 are routes, 
the shortest list will be the shortest 
route. 

We have reached a stage at which 
our robot has planned the shortest 
route to its destination; all that remains 
is for it to move there. Another 
‘dummy’ procedure, walk(Route), 
enables this. We have defined walk so 
that it simply writes out the routes, but 
the route is actually a list of PROLOG 
goals. These could have been given to 
PROLOG to execute as a program instead 
of being printed to the screen. The 
predicate face(Place) could be defined 
to perform a sensor scan to locate Place 
and then turn the robot, while 
move(Place1,Place2) could be defined to 
allow the robot to move between the 
two points. 

This program for moving about is 
written by the main program itself 
inside the plan procedure. This is simply 
done. Essentially, the algorithm it uses 
is: to find a route from A to B, first find a 
route from A to C, then find a route 
from C to B. The plan procedure is 
recursive. The first clause is there to 
stop the recursion when the destination 
is reached (that is, there is always a 
route from A to A). 

The second clause in fact does all 
the work. The declarative reading of 
this is that a plan exists to go from A to B 
by route R if: 


1. there is a path from A to C, and 

2. Cis not on the already-visited list, V 
(C will then be added to this list to 
prevent you from going round in circles 
in the future), and 

3. there is a plan to get from C to B by 
route R1. 


When all these conditions are true, the 
final route, R, is the list containing a 
program to get from A to C added to the 
route-so-far (held in R1). Recursive 
procedures such as this are notoriously 
difficult to follow (try working through 
it with a pencil and paper), but they 
give PROLOG tremendous conciseness. 
To complete the program, we now 
need to update the robot’s current 
position. This is done with the two 
built-in predicates — retract and assert. 


' The first clause that matches X is 
removed from the database by 


retract(X), and asserta(X) adds the clause 
X as the first of that type in the database 
(assertz(X) adds X as the last). These 
predicates are powerful tools for AI 
programming. 





Mobile Robot Simulation 

Standard PROLOG Version: 

at(door). /* the robot's current position */ 

go(There):— at(There), write(‘l am already there!’) ni,ni,ni. 

go(There):— at(Here),go(Here, There). 

go(Here,There):- —_ place(Here) ,place(There) ,at(Here) ,findall (Route, plan (Here, There,[],Route),RL), 
shortest(RL, ShortRoute),walk(ShortRoute) ,retract(at(Here)) asserta(at(There)),saywhere. 

go(Here,There):- — not(at(Here)), write(‘l am not at the’), write(Here) ,write(‘so | will go there first.’),nl,nl, 
go(Here),go(There). 

go(Here, There) write(‘l can only visit places | know about’) ,nl,nl. 

plan(A,A,_,R). 

plan(A,B,V,R):- path(A,C),not(member(C,V)) append([C],V,V1),plan(C,B,V1,R1), 
append(|face(C),move(A,C)],R1,R). 

walk(Route) :— write(Route),ni,ni. /* to be fully defined later */ 

Saywhere:— at(Place) ,write(‘l am at the’), write(Place) ,ni,nl,nl. 


/* alist of paths the robot knows about */ _—_/* and alist of the places it knows */ 


path(bookcase, chair). place(door). 
path(chair,bookcase). place(rug). 

path (bookcase, tv). place(tv). 
path(tv,bookcase). place(bookcase). 


path(tv,rug). 
path(rug,tv). 
path(rug,chair). 
path(chair,rug). 
path(door,rug). 
path(rug,door). 
( 
( 
( 
( 


path(window,chair). 
path(chair, window). 
path(window,bookcase). 
path(bookcase, window). 


place(window). 
place(chair). 





Micro-PROLOG Version: 
(at door) /* the robot's current position */ 
((go X) (at X) (P| am already there!) PP,PP,PP) 
((go X) (at Y) (go Y X)) 
((go X Y) (place X) (place Y) (at X) 
(findall Z (plan XY ()Z)x) 
(shortest x y) 
(walk y) 
(DELCL ((atX))) (ADDCL ((at Y))) 
(saywhere)) 
((go X Y) (NOT at X) 
(P| am not at the) (PX) 
(P so | will go there first.) PP PP 
(go X) (go Y)) 
((go X Y) (P | can only visit places | know about) PP PP) 
(plan X X x1 Z) 
((planX YxZ) (path X X1) (NOT member X1 x) (append (X1) x x1) 
(plan X1 Y x1 Z1) 
(append ((face X1) (move X X1)) Z1 Z)) 
((walk Z) (P Z) PP PP) 
((saywhere) (at X) (P| am at the X) PP PP PP) 


/* a list of paths 


the robot knows about */ _—/* and alist of the places it knows */ 


path window chair) 
path chair window) 
path window bookcase) 


path bookcase 


(path bookcase chair) (place door) 
(path chair bookcase) (place rug) 
(path bookcase tv) (place tv) 

(path tv bookcase) (place bookcase) 
(path tv rug) (place window) 
(path rug tv) (place chair) 
(path rug chair) 

(path chair rug) 

(path door rug) 

(path rug door) 

( 

( 

( 

( 


window) 
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PROGRAMMING PROJECTS /SIMULATION GAME 


THE NEW WORLD III 


occurrence of PRINT CHRS(147) should be replaced 
by CLS. All lines that wait for a keypress, i.e: 
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We conclude our New World simulation 
game project by giving the third and final ; ; 
part of the complete listing, together with <line no> GET IS:IF IS="" THEN <line no> 
the simple alterations that Amstrad owners _ should be replaced by: 

can make to allow the program to run OM ting no> |$="” WHILE IS="" :IS=INKEYS:WEND 
their machines. 




















° ° ° e 2 
Finally, the following line should be inserted so 
The program, although written on the that the 40-colimn screen display mode 1s 
Commodore 64, can be made to run (with a few _ selected: 
minor alterations) on Amstrad computers. Every 5 MODE 1 
453a REM LIFEBOAT 67146 X=1 
4535 IFM¢1)=1THENRETURN 6718 FORT=1TO14 
45936 PRINTCHR#( 147) $720 IFTS(T,1)9=ZANDTS(T, 2) <3 @ANDTS¢(T, 2) 42-99 9THENX 
4540 MCl9=1 =4:T=16 
4558 S#="4 LIFEBOAT 1S SIGHTED®" :GOSUByi4aa S722 NEXT 
$552 S$="DRIFTING IN THE DISTANCE#" :GOSUB9144 6724 Y=1 
6554 PRINT: GOSUB9264 6726 1FOAC1) <>GANDOAC1) 4>-999THENY=6 
6554 S¢="THROUGH THE TELESCOPE YOU SEE*":GOSUB?14a4 S730 Z2=( (+7) ¥10045 
4558 S¢="THAT IT CONTAINS: *" :GOSUB?i a4 
6564 PRINT: GOSUB?200 
4562 S#="4 PEOPLE*" :GOSUBS10a 
4563 GOUSUBS286 
654623 GOSUB? 204 
4544 St=<"SNO & LARGE CHEST! #" :GOSUB?iab 
45466 PRINT :GOSUB? 208 
6548 S$="I1F YOU CHANGE COURSE*" :GOSUE?1 a4 
46578 St="TO PICK THEM UP#":GOSUB?1a8 6732 [$="YOU HAVE ":1FX=GANDY=8THENS746 
4572 S#t="I1T WILL TOKE YOU Tho ExXTRGa DGyYS*" :505UBF1 6724 IFX=1THENS$="WITH NO DOCTOR#" :GOSUB?F100;:I1S="A 
ae ND" 
4574 PRINT: GOSUEF2aG 4736 IFY=1THEN S#=I1$+"NO MEDICINE" :GOSUBS1 66 
6576 S#="DO YOU WANT TO PICK THEM UP ¢r/tMoe” :GUSUB 6744 S$="MANyY OF THE CREW ARE AFFECTED®" :GOSUB?71 06 
e180 4745 PRINT :GOSUBS2aa 
6578 INPUTI$:1$=LEFT#¢1#,1> 67s x=68 
4580 [FI€<3"V¥"ANDIS<>"N"THENSS78 6755 FORT=1TO16 a 
4585 TPIl$="¥ "THEM S666 $756 IFRNDC1)<.3THERNS/75 
4588 PRINT: GOSUB?2a6 6768 IFTS(T,2)=80RTS(T , 2)=-799THENS67 75 
6570 S#="THE LIFEBOAT DISAPPEARS....*" :G0SUBS188 6765 18(1,20=15¢1.2)-2 
4572 PRINT :GOSUB9266 S77@ LFTS(T, 2) 41THENTS(T , 29=-7 99: X=Kt1 
4594 St=K¢:GOSUB? 146 6775 NEAT 
6596 GETI$:1FI$=""THENSS74 6776 IFPY=1THENS736 
6597 RETURN 4777 S$="1/2 YOUR MEDICINE 15 USED#":GOSUE91 66 
4600 PRINT: GOSUB9 286 6778 OACLI=INTCCOACII/2)+.5) 
S616 EWeELl+ e+? 6786 PRINT :GOSUBR?2h6b 
6625 IFCN¢316 THENS636 6785 [FX=GQTHENS 797 
6627 S$="YOU CAN’T PICK THEM UP*" :GOSUB?146 6770 PRINT"AND" :xs 
6628 S$="YOU HAVE NO ROOM ON THE SHIP#" :GOSUB?1 48 67972 St="CREW MEMBERS DIE=" 
6627 GOTOSS92 6794 LFX=1THENS$="CREW MEMBER DIES#" 
6636 X=16-CN:1FX>S3THENS435 6775 GOSUB?1b6 
6632 St="YOU ONLY HAVE ROOM FOR*®":GOSUBY146 6796 PRINT :GOSUB7 206 
6633 PRINTX:"MORE PEOPLE ON THE SHIP" 679? S#=K$:G0SUB7146 
4634 PRINT: GOSUBS206 $798 GETIS:1FIS=""THENS79S 
6635 St="YOU PICK UP:*" :GOSUBY1 a4 6799 RETURN 
5638 x=4 
6648 FORT=1TO1S 
6645 IFTS(T,1)<>@THEN6679 § 
6658 xX=xX+1 6800 REM PIRATES 
6655 IFX>4THENT=1 4: G0TO4479 6865 1FM¢3)=1 THENRETURH 
6660 CN=CN+1 6818 *=6 
6665 TS(T,1I=INTORNDC19 #5941 4812 FORT=1TO1é6 
6668 TS(7T,2)=INT¢RND(1)#50)+56 6814 IFTS(T, 22=80RTS(T , 23=-999THENX=*+1 & 
$678 PRINT"1 "“sC#cTS¢T,13> 6815 NEXT 
6467? NEXT 4816 IFX=16 THEN RETURN 
44680 PRINT: GOSUB92a8 6618 M¢3)=1 
6682 St="THE CHEST CONTAINS: #" :GOSUB?1 06 6928 PRINTCHRS(147) 
46685 FORT=17T04 
6690 X=INTCRND(1)*1@)+14 
: 6672 PRINTX:;US(TI:S"S OF "sPECT3 
: 6693 LFPACTI=-999THENPALT I =6 
3 4694 PACTISPACTI+X 
3 6695 NEXT 
i eer? GUTO6a7%2 4622 $#=" PIRATES ATTACK THE SHIP! *":GOSUBSiea 
He 6824 PRINT :GOSUB?200 
6825 K=2 
isis; . 6826 1FOAC 2)=G0RD0AC 2)=-999THENK=4 
6700 REM PLAGUE STRIKES 4828 St="IN SPITE OF YOUR GUNS" 
67@5 IFM¢C2)=1THENRETURN $830 LFK=4THENS$="YOU HAVE NO GUNSs" 
S706 PRINTCHRS(1473 4822 GUSUBS1a8 
4718 M¢2)=1 4835 *=6 
6712 St="4 PLAGUE STRIKES*" :GOSUB?1 46 4834 FORT=1TO14 
6714 PRINT :GOSUB? 266 6238 IFTS(T, 2)=80RTS(T , 23=-799THENS845 
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S849 K=K+1:TS(7T, 29=-979 7208 REM MUTINY 
se42 LFX= KTHENT=1 4 72i@ MF=e6 
6845 NEXT 7215 IFH$="¥"THENMF=MF+ 36 
S658 PRINTS: Fee NC=a : 
6855 S¢="0F THE CREW IS KILLED#" F225 FORT=1TO14 ‘ 
66545 I[FPX317THENS#="0F THE CREW ARE KILLED=" P2228 ITFTS¢T, 1 2=SANDTS(T, 2) ¢3GANDTS(T, 2363-9 997THENN 
4848 GOSUB?1a80 b=1:1=)4 
6265 PRINT: GOSUBS 204 7238 NEXT 
S890 St=k#:G0SUB7148 F235 [LPNC=8THENMFSMF+ 3a 
4295 GETI¢: lFLS=""THENSS? 7240 IFAS="V" THENMF=MF-28 
48? RETURN 7245 [FBS="¥"THENMF=MF+3@ 
$900 REM RUDDER P25 [FCN 12THENMF=MF+ Sa 
4705 I[PMé43=1 THENRETURM 7255 [FWT>MOTHENMF=MF+ 2a 
S918 PRINTCHRS( 147) 7266 JT FWK>STHENMF=MF+¢ ClIK-S 98183 
S715 Medi=l 7275 MP=MF+INTORND(1) #38) 
S726 St="TROUBLE WITH THE RUDDER! =": GOoSUB?Fiag 
4925 PRINT: GOSUBS 244 
S29 kad 
7 S738 FORT=1TO14 
6735 IFTS(T 13=SANOTS(T . 2) <3HANDTSCT, 2263-5997 HEME 
| =H=1:T=14 
| 4938 NEXT 
S948 S$="ALTHOUGH YOU HAVE A MECHANICS" 7288 I[FMF<?75 THENRETLURN 
7 6745 [PX=4THENS$="YOU HaWE NO MECHGNIC AND" 7282 PRINTCHRS(147) 
S750 GOSUESi a8 2349 IFMF?166THEN? S86 
6755 S#="YOUR JOURNEY WILL TAKE*®":GOSUB?1 84 7285 S#="CONDITIONS ON THE SHIP®":GOSUB?1 44 
| 6960 PRINTX:; "WEEKS LONGER" 72846 St="ARE GETTING WORSEX" :GOSUBSi ag 
S765 EWSELI+x 7287 S$="AND SOME OF THE CREWs" :GOSUBSiaa 
S¢é7 PRINT: GOSUBSZaa 7288S S#="GRE TALKING OF MUTINY! *" :GOSUBSi 4a 
494? S$=Kt:G05UBF1a8 7270 PRINT: GOSUR? 206 
] se7a@ GETI#:1FI$=""THENS? 7a F272 S$=Kt:GOSUBS1 4G 
yt s¢75 RETURN | 7294 GETI#:1FI$=" "THEN? 294 
| 7OHH REM STORM 7299 RETURN 
7H@S I[FM¢5)=1THENRETURN 
FH1la PRINTCHRS( 1472 
7O15 MeS=1 
| Fa20 St="VYOU ARE BLOWN OFF COURSE#" :GOSUB?ine 
7H22 S$="IN & STORM! *" :GOSUBSI1 4a 
7H25 PRINT: GOSUB?2aa 
| FO2S X=2 
FHSH FORT=1TO1S 
: oe ae x Si T 2) e30ANDTSCT 2122-998 7S30@ PRINTCHR#(147) 
| Os ‘TT, L3=4ANDTS(T , 2) <38ANDTS¢T, 2) 43-79 97THENX 25s Gein Gocueecas / 
| 7O38 NEXT 721@ S$="THE CREW HAVE MUTINIED*" :GOSUB?71 66 
| F848 St="ALTHOUGH YOU HAWE A NAVIGATORS" ae 7. oe 
i rads <a 2 =" OL ly LJ u (Carbo ace 
a siege YOU HAVE NO NAVIGATOR AND - 
oe 7215 GOSUBS2b6:x=x+1:PRINTH3 
P3146 St="THEY HAVE BEEN ON 1t-2 RATIONS*" :GOSUBS168 
7R18 a FOR SOME OF THE VOvVAGE*" :GOSUB?1 48 
PE20 IFNC<>STHENT S25 
7S21 SOSUE9200 xMEX+1L PRINT; 
P7322 St="THERE 15 NO COOK#" :GOSUB?146 
7324 a GHG THE FOOD IS AWFUL®" :GOSUB?148 
7856 REM ISLAND PE25 IFBt<3 "7" THEN? 33a 
7H55 LFM¢43=1THENRETURN 7326 GOUSUBS 200 :x=kt1:sPRINTx: 
~ 7H4S0 PRINTCHRE( 1473 7327 S$="THE ALBATROSS WAS KILLED! *" :GOSUB?19¢ 
PH45 Me so=1 f336 IFCMN<¢!3THEN?335 
7H78 St="YOUR CHARTS SHO) AN ISLANDS" :GOSUBS1046 7331 GOSUBSZO6:xX=xX+1:PRINTX; 
7a?71 St="WHERE YOU May BE ABLE ToO#":GOSUB?148 2 S$="THE SHIP 15 OVERCROWDED®" :GOSUB?1 4b 
Fa72 S$="RE-STOCK YOUR PROVISIONS=" :GOSUBSiag PSS35 LFMOs=SliT THEM? S4e 
7O73 St="BUT IF YOU GO THERE" :GOSUBSi 48 (>. GOSURP2H8:X=X+1:PRINTX 
Fa?74 St="IT WILL ABD TIME TO YOUR JOURNEY=" :GOSUB? e33" S$="THERE ISN'T ENOUGH GOLD®" :GOSUB?1 a8 
1aa 7S388 S¢=" FUR THEIR WAGES*" :GOSUB?i aa 
7075 PRINT:GOSUBS2aa fod IFWK<=8 THEN? 356 
Fase St="D0 YOU WANT TO GO THERES" :GOSUB?1 G6 7341 GOSUBS200:xX=x+1:PRINTX: 
FHS2 INPUTI#:1$=LEFT#( 14,12 PE42 S$="THEY HAVE BEEN AT SEG#" :GOSUBS1io8 
7a84 IFI$<3"Y¥"ANDIS<¢>"N"THEN?FaS2 7S43 S$=" FOR MORE THAN & WEEKS*#" :GOSUBz1a48 
7086 PRINT: GOSUBS 2448 7358 PRINT: GOSUBS2a4a 
7aea ITFIS="N"THEN?T1 45 7348 S#="THE CREM! SEIZE THE SHIP#":GOSUBFi4a 
7l@G S#="YOU REGCH THE ISLANDS" :GOSUBS14a8 S62 GOSUBS2a8 
| 7iGS S$=$"AND OBTAIN: #" :GOSUB?i a4 63 S$="AND SAIL AWAY*" :GOSUBS1 44 
7iG@4 IFBS="N"THEN?11¢4 4 GOSUBS2a8 
7147 PRINT: GOSUBS 206 2 S$="LEAVING YOU ADRIFT IN #" :GOSUBS19¢8 
718 PRINT"NOTHING! " :GOSUBSz2a8 3 S#="AN OPEN BOAT#" :GOSUBSiag 
Fila? S#="(REMEMBER THE ALBATROSS! )":GOSUBFiga:G0TO 4 S$="LET°S HOPE YOU ARE PICKED UP" :GOSUB?1 46 
7138 5S PRINT: GOSUBS2a8 
P 7ii@ FORT=1T04 @ PRINT" GAME OVER" 
Fil2 IFRNDC12<.257THEN?Z1 29 2 END 
7115 X=INTCRND(19*1@)+5 
7128 PRINTX:US¢TI:"S OF" SPECT) 
| 7i22 LFPACTI=-979THENPACT) =a 
: 7125 PACTISEPACTI+V 


fle? NEXT 
7138 St="BUT THE JOURNEY WILL NOW TAKE*®" :GOSUB?146 
f135 S=INTCRND( 1p e25+1 





“139 PRINTX;:S#="WEEKS LONGER*" :GOSUB?108 F168 REM SLOW PRINT OF S¢ 

“146 EWEW+x Flil@ FOR Ss=17TO32 

f145 PRINT :GOSUESso6 FL1IS IFMIDS¢(S¢,S3,13="*" THENSS=32 :G0TOF1 44 
138 St=KS:G0SUBS1 48 F128 PRINTMIDS(S¢,S3,12; 
“155 GETIS:1IFIS=""THEN?155 F136 FORS4=17T026 sNEXT 

“159 RETURN F148 NEXT: PRINT 


Pies? RETURN 

F2bH REM DELAY LOOP 

F210 FORSS=17T01 666 :NEXT 

P27° RETURN 

7346 REM REDUCE CREW STRENGTHS By WF 
F316 FORSI=1TO14 





S15 IFTS¢S1, 2)=8THEN? 346 

Pored [S¢Sl,2)=1S¢S1 , 2) We 

7338 IFTS(S1,2 ZI SL THENTS(S1 , 2i=-2o9 
Pode NEXT 

PSS? RETURN 
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PROGRAMMING PROJECTS /SIMULATION GAME 





18086 
14861 
14685 
16006 
leon? 
Laaus 
16b16 
1HH15 
1461? 
Fibe 
1BBis 
14626 
1BB22 


REM ARRIVAL AT NEWWORLD 


PRINTCHRS( 147) :GQSUBS 266 


S$="VOL ARRIVE AT THE NEL) WORLD*"+G0SUB71 04 
PRINT :GOSUB? 266 

St="AS YOU APPROACH THE SHORE®" :GOSUB? i bb 
S$="NATIVES PADDLE OUT TO MEET YOU*" :GOSUB?71 44 
PRINT :GOSUB? 208 

TFOAt 2:=6THEN1 G58 

St="THEY LOOK FIERCE AND ARE ARMED! !*" :GOSUE 
FRINT :GOSUBS 268 

S#="D0 YOU OPEN FIRE? (¢y/Nd 2" :GOSUB?1 G4 

PRED IIe ee 1) 

IFI$<>"N"ANDI$<3 "¥" THENI G8 22 
IFIS="N"THEN1 6856 

PRINT :GOSUB? 266 


S#="MANY NATIVES ARE KILLED*®" :GOSUB?T145 
S#="BUT DURING THE NIGHT#" :GUSUby1 bb 
S#="QTHERS RETURN®" :GOSUB? i bu 
S$="AND BURN YOUR SHIP!!! !#" :GOSUBS1 08 
S PRINT: PRINT :GOSUBS 2a 
S¢=" GAME OVER®" :GOSUB?1 G4 
- END 
GOTOLB642 


S#="THEY TAKE YOU TO MEET THEIR®" 
S$="CHIEF. HE HAS MET YOUR RACE#": 


:GOSUBS106 
GOSUB? 14a 


S#="BEFORE AND IS FRIENDLY.*" :GOSUB?1 448 
GOSUBS 246 

="THE CRE ARE FED AND RESTED#" :GOSUB?S1 66 
PRINT :GOSUB? 264 


BEGINS#" :GOSUB?1 66 


S#="THE NEXT DAY TRADING 
PRINT :GUSUB? 268 

St=Kt :GOSUBS1 48 
GETI#:1IFI$=""THENLaass 
RETURN 








16676 PRINTCHR#(147) :GOSUBS2b6:REM TRACING 

14672 IFOAC 2)=6THENI SoSH 

196674 S#="THE CHIEF DOESN‘T WANT YOUR®" :GOSUB?1o8 
196076 S#="GUNS - THEY WILL CAUSE TROUBLE*" :GOSUB? 146 
14678 PRINT :GOSUB? 266 

14086 ee ee eee *GOROAt 6) 426) HEN 
14635 ="YOU HAVE NO GOODS LEFT#" :GOSUB?144 

1bu7b S¢="FOR TRADING" :GOSUBS1 44 

14675 GOTOLb838 

19164 S#="IN EXCHANGE FOR ANY KNIVES*" :GOSUBS1 46 
14182 S#="SALT CLOTH OR JEWELS YOU HAVE®" :GOSUB? 14 
196144 St="HE OFFERS YOU PEARLS CARVINGS*" :GOSUB?1u 
146166 S#="AND SPICES*®" :GOSUBS1 44 

19148 PRINT: GOSUBS 266 

1@1ii@ St="WHEN YOU LEFT PORT THESE WERE#" :GOSUB?1 4 
1H112 St="WORTH:*" :GOSUBS1 b6 

14114 S#="PEARLS - 2 GLD PCS EACH#" :GOSUB?I1 a4 
14116 S#="CARVINGS - 2 GLD PCS EACHS" : GOSUB?1 ag 
1811S S$="SPICES - 1 GLD PC PER GRAM*" :GOSUBY146 
18126 PRINT :GOSUB? 268 

1@122 S$="BUT THEIR VALUE MAY HAVES" :GOSUB?1 a6 
1@i24 S#="CHANGED WHEN YOU GET HOME" :GOSUB?1 66 
19125 PRINT: GOSUB? 264 :St=kKS :GOSUBS1E4 

14124 GETI#:1FIs=""THENIG126 

16136 FORT=3T06 

14135 [FOACTIS=BTHENIL&@ 268 

1614@ PRINTCHRS( 147) :GOSUBS 206 

14145 PRINT" YOU HAVE" ;OACT? | 

14156 IFT=STHENS#="BAGS OF SALT#" 

14151 IFT=4THENS#="BALES OF CLUTH®" 

16152 ITFT=STHENSt="KNIVESS" 

18153 [FT=4THENSt="JEWELS=" 

16155 GOSUB?164 

16154 PRINT :GOSUB? 24g 

14144 S$="FOR THESE THE CHIEF OFFERS YOU#" :GOSUB?146 
18145 FRINT"ELTHER’ ;OR° 1) *EQ@(1-2,17; PEARLS” 

14144 PRINT" OR" :OACT) SEQCT—-2,2) 3 CARVINGS” 
1416/7 PRINT" OR" :0ACT) *EQ(T-2,3);"GRAMS OF SPICE" 
16168 PRINT: GOSUB?26u 

18178 St="DO YOU WANT PEARLS, CARVINGS#" :GOSUB?1 ab 
life St="OR SPICES?" :GOSUBS1 44 

lH174 S$="CENTER 1,2 OR 3)%":GOSUB?1 Gb 

14145 INFUTIS 

14176 ISVALCI#) :1FI<10R1>3THENI 41 74 

18188 AQCTI=AOCT1+¢COACTI SEQCT-2,19> 

19198 PRINT:PRINT"THE "“sT#¢123;" ARE PUT ON THE SHIP" 
1BW1F2 St=Kt :GOSUBSIGS 

14194 GETIS:1TFI$=""THENLai 24 

18266 NEXT 

14214 PRINT: PRINT :GOSUB? 2646 

14215 S#=" END OF TRADING#" :GOSUB?146 

162146 PRINT :GOSUBS 265 

14218 S$="VYOU HAVE OBTAINED: #" :GOSUB?1 64 

16226 PRINTAQC1);"FEARLS" 

1@222 PRINTAO( 2): "CARVINGS" 

1@224 PRINTAQC 33 3"GRAMS OF eee 

16226 PRINT: GOSUB?S 266 

16228 ae en 

1O@22>7 GETIS:1IFI¢="" ee 

16238 RETURN 
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ee 
Gm 
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— 
tr 
uJ 
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16346 
las4e2 
1p344 
16345 
16346 
16348 
16356 
1H3B52 
1as54 
16357 
16464 
164465 
164146 
1@4di2 
14415 
14426 
16425 
14429 
16436 
14431 
1@456 
14452 
14455 
18457 
14458 
1@45% 
1@444 
14462 
14464 
1@56u 


16561 
16585 
16567 


14568 Sé= 


14512 
19514 
1a514 
19518 
1as5i? 
19520 
i@Sze 
14524 
19526 


— 
tS 
taint 


14547 
18556 
16552 
14555 


: PRINTX$ 


REM REVOLUTION 

TFOAC 2)=6THENRET URN 

PRISTCHRE( 147) :G0SUB? 268 

S#="DURING THE NIGHT A RIVAL OF THE®" :GOSUB>1au 


St="CHIEF VISITS THE SHIP IN SECRET*" :GOSUB?166 
PRINT :GOSUB?S 286 

S$="HE WANTS TO BUY YOUR GUNS FOR#®" :GOSUB?T1EB 
St="A REVOLUTION®" :GOSUBS1 68 

PRINT: GOSUB? 264 


S$="HE OFFERS YOU 36PEARLS PER GUN®":GOSUB91 a 
S$="DO YOU SELL HIMTHE GUNS?<Y/N)*":GOSUB91@8 
INPUTI#:I1$=LEFT# (14,1) 


IFIS<¢?>"N"ANDIS¢3" 7%" THENIS325 
IFI$="¥"THENI@ 466 
PRINT : GOSUB? 288 


S$="THE CHIEF FINDS OUT AND 15*" :GOSUB?1 G44 
S$="PLEASED WITH YOU#" :GOSUBS166 
S$="HE GIVES YOU FREE PROVISIONS#" :GOSUB?14H46 


S$="FOR THE JOURNEY BACK®" 
GOSUBS 2b 

[TF RNOC1)<.75 THEN 14356 
S#="GND 56 PEARLS! !#" :GOSUB?166 
AQt13=A0C1)+56 

PRINT :GOSUB?S 264 

St=KS : GOSUBS1 48 
GETIS:1IFI¢=""THEN16354 

RETURN 

PRINTCHR# (147) :GOSUBS 266 
IFRND¢1)<.73THEN1 6456 


:GOSUB? 146 


S#="THE REVOLUTION IS SUCCESSFUL®" :GOSUB?1 46 
PRINT: GOSUBY 246 
S$="THE NEWLHIEF REWARDS YOU WITH#" :GOSuBsaa 


St="FREE PROVISIONS FOR THE RETURN®" :GOSUB?S1aG@ 
St="JOURNEY.#" :GOSUBS 1&8 

AQCL =AOC 1+ (0A 2138) :REM ADD PEARLS 

OAC 2)=6 

GOTOLG356 

S#="THE REVOLUTION FAILS! ! 2" :GOSUB?S1 66 

PRINT: GOSUB? 264 


:GOSUBS1068 
GOSUB? 1 & 


S#="THE GLD CHIEF 15 ANGRY WITH YOUx" 
S#="HE BURNS YOUR SHIP AND STEALS=#": 


S#="EVERYTHING! !*" :GOSUEB?166 
PRINT : GOSUBS 266 

St=" GAME OVER! !*" :GOSUB?164 
END 

GOTOL8462 


REM END OF VOYAGE 





PRINTCHR#(147) :GOSUBY248 

St="WITH A STRONG CREW AND GOODs" 
S$="WINDS THE JOURNEY BACK GOES" 
"WELL AND TAKES ONLY 3 WEEKS*" 
WhW=8 

FORT=1TOS 

Wh=Whi+ (S*eCCoT 2 eWGeT 2 > 

NEAT 

PRINT : GOSUBS 266 

S$="WAGE BILL FOR RETURN VOYAGE = 
PRINTWW;"GOLD PIECES" 

PRINT: GOSUB? 266 

St="WHEN YOU GET BACKS" :GOSUB?7166 
St="YOU SELL YOUR TRADING GOODS*" :GOSUB?1 66 
S#="THE GOODS ARE NOW WORTH: #®" :GOSUB91 66 
PRINT"PEARLS - “:V2¢1l)3"GUOLD PIECES” 
PRINT"CARVINGS - "sV2c2);"GOLD PIECES” 
PRINT SPICES — “:U2¢3);"GOLD PIECES” 

PRINT :S#="YOU GET A TOTAL OF*#" :GOSUB7168 
wMeCAOC 1) #U20199+(A0C2) #VU20 2) +f AOL Bd e203) 
“GULD PIELCES® 

PRINT: S5$=K¢:GOSUB 91H6:PRINT 

GET I#:1F I$="" THEN 1a sa? 

S$="V*OU Nuw HAVE: *#" :GOSUBS1b8 
PRINTMO+*: GOLD PIECES” 

PRINT :GOUSUB? 246 

St="THE WAGE BILL FOR THE VOYAGE IS*" 
PRINTWT +i: "GOLD PIECES" 

PRINT :GOSUBS 206 

St="QU END THE GAME WITH:s": 
2=MO0+x—-LWT lll 

PRIBTZ: "GOLD PIECES" 
oe 
FRINT :S¢="YOUR 
[TF 2732 2ae THEN 


:GOSUB?1 46 
:GOSUBS148 
:GOSUB7166 


IBS 166 


1B0SE 


GOSUBS1 G6 


RATING IS:*" :GOSUBS106:PRINT 
S$="ARCH CAPITALIST#":GOSUB F 


14@6:ENO 


1654% 
END 

14576 
BYiba 
14371 


IF 232568 THEN S#="MASTER TRADER#"GOSUB?S1 G4: 


IF 222600 THEN S#="MERCHANT CLASS III*":GOSU 


PERI 


IF 231486 THEN St="A PROPER JONAH*" :GOSUE Fi 


@@:END 


1aS72 
18573 


="MORE OF A DUCE 


S THAN A DRAKE" 
BOSUBS146:END 











Se a 








e investigate the ROM routines used by 
e Spectrum’s operating system to access 
e tape filing system, which is the only 
method of storage provided on an 
unexpanded machine. We also provide 
programs to demonstrate how the save and 
load routines are used from machine code. 





A standard Sinclair Spectrum is fitted with only a 
tape interface to allow the saving and loading of 
programs and data. The addition of Interface 1, 
however, gives us access to Microdrives, the serial 
interface and local area networks. These can be 
seen as being alternative filing systems in much the 
same way that the BBC Micro has alternatives 
available to it. However, on the BBC Micro we 
select the filing system of interest by a * command; 
on the Spectrum, we use a different command 
syntax to differentiate between commands meant 
for the tape filing system and any of the other filing 
systems available to the computer. For example, 
the command: 


SAVE “fred1” LINE 1 


will save a BASIC program to tape so that it will start 
running from line 1 when it is loaded back into the 
Spectrum. To save a program in a similar way on 
the Microdrive filing system requires the 
incredibly cumbersome command: 


SAVE *“m”;1;“fred1” LINE 1 


The “m” part of the instruction specifies a 
Microdrive is being used; the 1 following this 
indicates the number of the drive required; and the 
filename — “fred1” in this case — follows this. We'll 
look at how the Microdrive filing system works in a 
later part of the course. Here we'll examine the use 
of the tape filing system from our machine code 
programs. 

Irrespective of what the data being saved on the 
tape is, it is always arranged in the way shown in 
the diagram. The first 19 bytes sent to the tape are 
regarded as the header, and these bytes contain 
data relating to the following block of data on the 
tape. The first and last bytes of the header are 
provided by the operating system routines that 
write the data bytes out to the tape. The other 
bytes need to be specified before the ROM routine 
which writes the data to the tape is called. The 
‘type’ byte indicates to the OS, on loading, the 
nature of the data in the block. Following this is a 
10-byte file name — the reason why file names are 
limited to 10 characters on the Spectrum. Even 
when the file name is less than 10 characters long, 
the remaining spaces in the file name are filled out 


with the ASCII code for a space (32). The data in 


© 
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the header from byte 11 onwards provides the OS 
with other details, such as information regarding 
where to load the data into memory. The final byte 
of the header is used to check for any errors when 
the tape is read in — if something is detected, the 
appropriate error message is generated. 

The main data block itself starts with a single 
byte holding the value 255; this is again provided 
by the ROM ‘write-to-tape’ routine. ‘Then comes 
the data, followed by another check byte, also 
generated by the ‘write-to-tape’ routine. In both 
the header and data blocks, the actual value 
written as the last byte of the block depends upon 
the bytes sent immediately before it. 

Let’s now look at how we can use the cassette 
interface routines from our own machine code 
programs. The ROM routines that are concerned 
with tape operations on the Spectrum are to be 
found in the addresses between &04C2 and &09F3 
of the Spectrum ROM. It is thus quite a sizeable 
piece of software. This is not surprising, because 
all the timing operations and tone generation 
needed to put information on tape are software- 
based in the Spectrum. 

There are no system variables concerned 
specifically with tape operations, but the following 
table contains a few that are used ‘incidentally’ by 
the routines. 





The system variables VARS, ELINE and PROG are 
also used when loading information from tape into 
the Spectrum. 


SAVING TO TAPE 

First of all, let’s consider the operation of saving 
data to tape — the routine which does this is found 
at ROM address &04C2. In a typical use, this 
routine is called twice; once to save the header 
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information and a second time to store the aciual 
data that we want to save to tape. The entry 
requirements for this routine are given in the table 
at the bottom of the preceding column. 

As can be seen from this table, the [X register is 
used to point to the data that is to be saved. To 
clarify matters, let’s look at a simple example of 
how to save a block of data to tape. The following 
program will save 100 bytes of data (beginning at 
ROM address 0000) to tape. 


iroutine to save 166 bytes, starting address 
G08, to tape 

: 

;send header 


SEGG id a,@ ‘indicate a HEADER BLOCK 

DDES push ix ysave ix on stack 

DD21D328 Id  is,header jadd. of header block 

111166 ld = dex t7 ;no af header bytes 

CDC264 call #84c2 ;write header to tape 
;send data 

DD2 16688 ld ix,@00@ jadd of ist byte to save 

116466 Id de,106 ;no of bytes to be saved 

SEFF Id a,259 ;indicate a DATA BLOCK 

CDC264 call #@4c2 ‘write data to tape 

DDE 1! pop. 1x jrestore IX value 

C? ret sback ta BASIC 

83 header: defb 3 ;data type 3=CODE block 

94455354 defm "TESTPROG ;f/name+spaces=1@ chars 


64 defb 1880 ;lo-byte of data-length 
9G defb @ ihi-byte of data-length 
68 defb 08 :lo-byte of start add. 
68 defb @@ thi-byte of start add. 
0G defb @@ ;used for BASIC only 

a8 defb @6 ‘for start line no. 


Calling this routine will save the relevant area of 
memory. However, no prompt will be issued (as 
would be the case with tape handling routines 
from BASIC). This isn’t really a problem as the data 
on tape can be reloaded to see if the program has 
done its job correctly, using this command: 


LOAD “TESTPROG” CODE 40000 


Now compare the bytes loaded in with the bytes in 
locations 0 to 99 in ROM. Remember that 
although the HEADER data block starts with the 
type byte, the first byte actually sent to tape is 
provided by the OS (0 for a header and 225 for a 
data block). 

A useful modification of this program can 
enable you to save a BASIC program from within a 
machine code listing. The HEADER block at the end 
of our previous listing should be altered to read: 


68 header: defb @ ;8=BASIC program 

iataveass defm "sssss ;fname filled to 18 chars 
sssss" 

cS) defb nn ;lo-byte} length of 

GG defb nn ;hi-byte} progtvariables 

G6 defb nn slo-byte} start line 

68 defb nn ihi-byte} number 

68 defb nn ;lo-byte} length of 

8G defb nn shi-byte} program only 


The length of the program and variables can be 
worked out by subtracting the value held in PROG 
from the value held in ELINE, and the length of the 
program alone can be obtained by subtracting the 
value held in PROG from that in VARS. If you do not 
want the program to start running once it is 
loaded, then simply set the ‘line number at which the 
program is to start running’ entry in the listing to 
32768. Similarly, we can simulate the SAVE 
SCREENS command from machine code by 
specifying the start address of the code to be saved 
as &4000 and the length as &1B00. 











— 


| 








This routine could easily be extended by using 
techniques that we've learned in earlier parts of the 
course; for example, a prompt could be put on the 
screen, and a simple routine could be added to 
wait for a Key to be pressed. 


LOADING FROM TAPE 


The ROM routine that loads data from tape is also 
called twice: once for the HEADER and again for the 
actual data block that is to be loaded. The routine 
is located at address &0556 in the ROM and its 
entry requirements are given in the following table 
(along with those for verify code): 





We will also require some workspace for this 
routine; about 34 bytes, or enough to 
accommodate two HEADER blocks. The reason for 
this is quite straightforward. In order to load a 
named file to an address within RAM that we 
specify, we must first set up a second HEADER block 
containing details of the file that we want to load. 
We then compare the HEADER data of the files on 
tape with the HEADER we've set up in memory in 
order to locate the file we require. 

On calling the routine (at &0556), the C flag 
should be set as indicated in the table. If you are 
verifying a piece of code, this should be located at 
the address pointed to by the IX register. On 
leaving the ROM ‘load-from-tape’ routine, the C 
flag will indicate the result of the operation. If it is 
set to one, then the load was performed smoothly. 
But if, for example, you were trying to load a 
HEADER block, and the first thing encountered on 
tape was a block of data, then the C flag will be set 
to zero. (Any tape loading errors will be handled 
by the Spectrum OS.) Let’s now look at a simple 
example that will load a HEADER from tape into 
RAM. 


sload a header from tape into RAM 


a 
4 


37 scf ;set carry 1=LOAD 

3EG@ ld a8 7@ indicates a header 
DDES push ix isave ix on stack 
DD2148EE ld ix,6100@ :load header to 61608 
111168 id de, 1? ino of bytes in header 
CD56@5 call #@556 ;do it 

DDE | pop 1x ;restore ix 

Cc? ret 


Once the HEADER is loaded then we can examineit. 
We can compare the file name with the one we 
require, ensure that its the correct type of file and 
check the length of the data block if we need to. 


The following program checks the name only, and. 


if it is correct loads the data block following the 
HEADER into memory at a particular address. 





;locate and load TESTPROG 


DDES push ix ;save IX on stack 
37 loop: scf ;set carry for LOAD 
3E88 ld a,@ ;@=BASIC file 
11116@ ld —- de, 17 ino of bytes in header 
DD21CA2B ld ix,head2 j;load header into headz2 
CD5465 call #8556 
D27B2B Jp nc,loop ;1f no header then again 
868A ld b, 16 » eno of bytes in fname 
11BA2B ld de,head+!1 j;point to desired fname 
21CB2B ld hl, head2+1 ;point HL to found fname 
1A name: ld a, ‘de? ;get header char in a 
BE cp this ;comp with found header 
2087 ip nz,no ;different so exit loop 
13 inc de ;get next char 
oo Ling: = fel 
85 dec b ;decrement counter 
26F/ iv nz ,hame ;same sa check next char 
1882 ir ok ;all chars checked + ok 
18DB na: jr loop ;check failed, try again 
:found right header so prepare to load data 
DD21B92B ok: ld ix, head ;get head in ix 
DDéESBD ld 1,tix#13> j;qet address to 
DD466E ld h,tixti4>) jload data inta 
ES push hl ;push address onto stack 
DDE 1 pop. ix sand get it into ix 
SEEF. ld a .Zo0 sindicate load data 
ynext instruction requires user to insert data 
length 
11AF2B Id = de,nn jinsert data length 
3? scf sindicate a LOAD - 
CD5685 call #80556 idoit 
DDE 1 pop “1x ;restare ix 
c9 ret 
inow follow details of desired fname 
83 head: defb 3 ;indicates CODE block 
34455354 defm "TESTPROG” ;4/name 
0G defb @ suse for data length 
08 defb @ ;data-length hi-byte 
48 defb 72 ;lo-byte for load 
EE defb 238 saddress of 61886 
68 defb @ ;used for BAS. prog only 
86 defb 8 : ditto 
snow follows space for header loaded for 
checking 


headz: defs 17 = 


Again, no messages are printed to the screen 
during this operation. The routine will load a data 
block called TESTPROG to the address specified in 


the HEAD area of memory. The routine can be used 


toload files of a different name, and you could also 


add code to check that the type of file is correct. 
One thing to note is that these ROM routines, like 
the BAsic SAVE and LOAD operations, can be 
terminated by pressing the Break key. 

We conclude this discussion of the save and 
load operations of the Spectrum OS with a short 
program that reads in file headers from tape and 
prints details about the file to the screen — such as 
the file’s length, start address, and so on. The 
machine code routine is stored in the DATA 
statement, and it simply loads in a HEADER block as 
outlined above, and then examines the block from 
BASIC. 


& CLEAR S7999 

1@ FOR I=@ TO 19 

26 READ A:POKE (6@0@8+1).A 

38 NEXT I 

4@ RANDOMIZE USR 68008 

38 LET type=PEEK 68828 

6@ LET length=PEEK 6@831+256*PEEK 66632 

7@ LET start=PEEK 6@633+256XPEEK 4868634 

86 LET L#="" 

9@ FOR 1=68621 TO 66638: LET LS=L$+CHRS¢PEEK I): NEXT I 

1@@ PRINT "Name: "3;L# 

116 IF type=@ THEN LET f%="BASIC" 

126 IF type=i THEN LET f%="Number Array” 

138 IF type=2 THEN LET f%="String Array" 

14@ IF type=3 THEN LET f%="CODE" 

15@ PRINT "Type: ";f# 

16@ IF type=@ THEN PRINT "Auto Run line number: "sstart 

176 IF typec>@ THEN PRINT "Start address: ";start 

186 PRINT "Length: "3;length ' 

198 GOTO 4@ 

268 DATA 221,229 ,62,06,55,221,33,116,234,17,17,0,263,86, 
Sate, 291,221,2259,201 
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PRINTER 


This is an output device that converts data from a 
computer or storage device such as a disk drive 
into typewritten letters or characters on a piece of 
paper. Typically, a printer will consist of an 
interface to a computer, a method of decoding the 
data (which usually arrives in the form of ASCII 
code), a buffer area (which allows the storage of 
pieces of data so that the computer can perform 
another function while printing progresses), a 
print head, a device to hold the paper and a means 
of moving the print head in both horizontal 
directions over the paper. 

Several types of printer designed for use with 
microcomputers are available. These range from 
inexpensive thermal printers that can be bought 
for less than £100 (see page 1261) to laser printers, 
which can cost well over four-figure sums. Other 
. types of printer are line printers, which print rather 
like an ordinary typewriter (one line at a time), and 


page printers, which can print a whole page at 


once. Printers can also be subdivided according to 
how they transfer the print onto the page. Impact 
printers produce the print by stamping the image 
of the character onto the paper. Examples of this 
type are dot-matrix (see page 304), in which the 
character is made up of a number of pins in a 
matrix, and daisy wheel printers (see page 364), 
which have a solid fount character like that on a 
typewriter. 

Non-impact printers (see page 71) include laser 
printers (see page 948), which burn the characters 
onto the paper, and ink-jet printers (see page 
829), in which electrically charged ink is shot out 
of anozzle and directed onto the page by magnetic 
fields. However, these latter types are expensive 
and beyond the budget of most home computer 
owners. 
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PROBABILITY 


The study of probability is concerned with 
attempting to determine how likely an event is to 
happen. This is measured as a value between zero 
and one, where zero represents no likelihood of it 
occurring and one represents certainty. 

Of course, we cannot predict which events will 
happen in the future with absolute certainty, but 
the probability can be assessed by observing and 
recording past events. A measure of probability 
can be determined by the number of times that an 
event occurs divided by the number of times it 
could happen. However, although we observe that 
the sun comes up in the morning, and we can say 
that there is a very high probability of it doing so 
tomorrow morning, we cannot assign a probability 
value of one to the event as we cannot be 
absolutely certain. 

There are some events that have never 
happened, of course, and yet we can assign a 
probability value to them. In such cases we must 
apply other statistical methods. When throwing a 
dice, for example, the chances of throwing a six is 
one in six. To find out the chances of throwing 
three consecutive sixes we could throw the dice 
indefinitely to obtain an observed probability, but 
it is easier to calculate arithmetically that the 
chances are (1/6)X(1/6)X(1/6)=0.0046. When 
we perform such calculations we assume that none 
of the dice is ‘loaded’. 

The study of probability and predicting the 
likelihood of events is an application ideally suited 
to the computer. Because the probability of an 
event is largely determined by the analysis of large 
quantities of statistical data, the number- 
crunching capabilities of computer technology 
make the computer an invaluable tool in this area. 


PROCEDURE 


A procedure is an area of a program that has been 
assigned a unique name. The name, and hence the 
procedure, can be called without the command 
having to specify a line number. Procedures 
usually carry out a single task that will be 
contained within start and end statements. The 
pieces of information needed for the procedure to 
complete its task are known as the parameters. 

It is possible to define local variables within a 
procedure. These are variable names unique to the 
procedure and have no meaning outside it, unless 
they are specifically passed as parameters. 

Procedures are an integral feature of structured 
programming. Structured programs can be broken 
down into self-contained parts and organised as 
procedures that can be called from within a control 
loop. The use of procedures also renders the task 
of making further additions to the program much 
easier as an extra procedure can simply be tagged 
onto the end and called when it is needed. 
Furthermore, the ability of procedures to make 
use of local variables means that the user need not 
worry that any new variables that might be 
assigned within the procedure will conflict with 
any that may already exist. 
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